home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / pgsys101.lha / rexx / Sysop-Pager.REXX < prev   
OS/2 REXX Batch file  |  1994-09-04  |  956b  |  29 lines
  1. /* Sysop Pager Config */
  2. call open(file,"mebbsnet:configfiles/logon.cfg",'R')
  3. BBS=readln(file)
  4. sysnm=readln(file)
  5. syshnd=readln(file)
  6. MAINPTH=readln(file)
  7. call close(file)
  8. Say" Please Select how you wish to have the over ride settings...."
  9. say" [1] Pager is Set to Over-Ride the Config and always Page..."
  10. say" [2] Pager is Set to Auto-Page and Follow the Config..."
  11. say" [3] Pager is Set to Over-Ride the Config and Never Page..."
  12. pull number
  13. Say" Do you Wish to have the Users with Auto Page,"
  14. Say" to be allowed to page?    [y] / [n]"
  15. pull optn
  16. say" Do you Want the AutoPage, if your not available to"
  17. say" Activate the Joke-Pager or the normal not avail page?"
  18. say" [y] = Joke Page....  (go for it)"
  19. say" [n] = Standard page  (good for angry users)"
  20. pull jpage
  21. call open(fyle,MAINPTH'PAGE.CFG','W')
  22. call writeln(fyle,""NUMBER"")
  23. call writeln(fyle,""OPTN"")
  24. call writeln(fyle,""jpage"")
  25. call close(fyle)
  26. say" Thank You and Hit Return..."
  27. pull duck
  28. exit
  29.